home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / XLIBP202.ZIP / TESTGIF.PAS < prev    next >
Pascal/Delphi Source File  |  1994-06-20  |  608b  |  37 lines
  1. program testgif;
  2.  
  3. uses
  4.     xgif2,crt,xlib2;
  5.  
  6. var
  7.     x, y : word;
  8.     palette : array[0..767] of byte;
  9.  
  10. function NextPixel : integer; far;
  11. begin
  12.     inc(x);
  13.     if x> 64000 then
  14.         NextPixel := -1
  15.     else
  16.         NextPixel := mem[$A000:x-1];
  17. end;
  18.  
  19. procedure dummy(var line; x,y:integer); far;
  20. begin
  21.     move(line, mem[$A000:x*320], y);
  22. end;
  23.  
  24. begin
  25.     x := 0;
  26.     y := 0;
  27.     GifInPixelProc := NextPixel;
  28.     GifOutLineProc := dummy;
  29.     asm
  30.         mov ax, 13h
  31.         int 10h
  32.     end;
  33.     loadgif('D:\GAMES\DOOM\XDOOM.GIF');
  34.     xputpalraw(gifpalette,256,0);
  35.     {savegif('D:\GAMES\DOOM\XDOOM.GIF',320,200,8,gifpalette);}
  36.     readkey;
  37. end.